home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / sprintf.dia.ref < prev    next >
Text File  |  1999-09-16  |  5KB  |  170 lines
  1.  
  2. //test format '%f'
  3.  
  4. //
  5.  
  6. deff('[y]=bugnum(str1,str2,str3)',['[lhs,rhs]=argn(0);if rhs==3 then y= str1<>str2 & str1<>str3;';
  7.         'else y=str1<>str2;end'])
  8.  
  9.  
  10. if bugnum(sprintf('%f',-35),'-35.000000' ) then bugmes();quit;end
  11.  
  12. if bugnum(sprintf('%f',35.55),'35.550000' ) then bugmes();quit;end
  13.  
  14. if bugnum(sprintf('%f',0.00433),'0.004330' , '0.004330' ) then bugmes();quit;end
  15.  
  16. if bugnum(sprintf('%f',0.0000000345456),'0.000000' , '0.000000' ) then bugmes();quit;end
  17.  
  18. if bugnum(sprintf('%f',11124234534545),'11124234534545.000000' ) then bugmes();quit;end
  19.  
  20.  
  21. if bugnum(sprintf('%15f',-35),'     -35.000000' ) then bugmes();quit;end
  22.  
  23. if bugnum(sprintf('%15f',0.00433),'       0.004330','       0.004330' ) then bugmes();quit;end
  24.  
  25. if bugnum(sprintf('%15f',0.0000000345456),'       0.000000' ,'       0.000000' ) then bugmes();quit;end
  26.  
  27. if bugnum(sprintf('%15f',11124234534545),'11124234534545.000000' ) then bugmes();quit;end
  28.  
  29.  
  30. if bugnum(sprintf('%.1f',-35),'-35.0' ) then bugmes();quit;end
  31.  
  32. if bugnum(sprintf('%.0f',-35),'-35' ) then bugmes();quit;end
  33.  
  34. if bugnum(sprintf('%#.0f',-35),'-35.' ) then bugmes();quit;end
  35.  
  36. if bugnum(sprintf('%.1f',0.00433),'0.0','0.0') then bugmes();quit;end
  37.  
  38. if bugnum(sprintf('%.15f',0.0000000345456),'0.000000034545600' ,'0.000000034545600' ) then bugmes();quit;end
  39.  
  40. if bugnum(sprintf('%.1f',11124234534545),'11124234534545.0' ) then bugmes();quit;end
  41.  
  42.  
  43. //test format '%g'
  44.  
  45. if bugnum(sprintf('%g',-35),'-35' ) then bugmes();quit;end
  46.  
  47. if bugnum(sprintf('%g',35.55),'35.55' ) then bugmes();quit;end
  48.  
  49. if bugnum(sprintf('%g',35.551234567890),'35.5512' ) then bugmes();quit;end
  50.  
  51. if bugnum(sprintf('%+g',35.551234567890),'+35.5512' ) then bugmes();quit;end
  52.  
  53. if bugnum(sprintf('%g',0.00433),'0.00433' ,'0.00433' ) then bugmes();quit;end
  54.  
  55. if bugnum(sprintf('%g',0.0000000345456),'3.45456e-08' ) then bugmes();quit;end
  56.  
  57. if bugnum(sprintf('%g',11124234534545),'1.11242e+13' ) then bugmes();quit;end
  58.  
  59.  
  60. if bugnum(sprintf('%15g',-35),'            -35' ) then bugmes();quit;end
  61.  
  62. if bugnum(sprintf('%15g',0.00433),'        0.00433','        0.00433' ) then bugmes();quit;end
  63.  
  64. if bugnum(sprintf('%15g',0.0000000345456),'    3.45456e-08' ) then bugmes();quit;end
  65.  
  66. if bugnum(sprintf('%15g',11124234534545),'    1.11242e+13' ) then bugmes();quit;end
  67.  
  68.  
  69. if bugnum(sprintf('%.1g',-35),'-4e+01' ) then bugmes();quit;end
  70.  
  71. if bugnum(sprintf('%.0g',-35),'-4e+01' ) then bugmes();quit;end
  72.  
  73. if bugnum(sprintf('%#.0g',-35),'-4.e+01' ) then bugmes();quit;end
  74.  
  75. if bugnum(sprintf('%#.0G',-35),'-4.D+01' ) then bugmes();quit;end
  76.  
  77. if bugnum(sprintf('%.1g',0.00433),'0.004' ,'0.004' ) then bugmes();quit;end
  78.  
  79. if bugnum(sprintf('%.15g',0.0000000345456),'3.45456e-08' ) then bugmes();quit;end
  80.  
  81. if bugnum(sprintf('%.1g',11124234534545),'1e+13' ) then bugmes();quit;end
  82.  
  83.  
  84. //test format '%e'
  85.  
  86. if bugnum(sprintf('%e',-35),'-3.500000e+01' ) then bugmes();quit;end
  87.  
  88. if bugnum(sprintf('%e',35.55),'3.555000e+01' ) then bugmes();quit;end
  89.  
  90. if bugnum(sprintf('%+e',35.55),'+3.555000e+01' ) then bugmes();quit;end
  91.  
  92. if bugnum(sprintf('%e',35.551234567890),'3.555123e+01' ) then bugmes();quit;end
  93.  
  94. if bugnum(sprintf('%e',0.00433),'4.330000e-03' ) then bugmes();quit;end
  95.  
  96. if bugnum(sprintf('%e',0.0000000345456),'3.454560e-08' ) then bugmes();quit;end
  97.  
  98. if bugnum(sprintf('%e',11124234534545),'1.112423e+13' ) then bugmes();quit;end
  99.  
  100. if bugnum(sprintf('%E',11124234534545),'1.112423D+13' ) then bugmes();quit;end
  101.  
  102.  
  103. if bugnum(sprintf('%15e',-35),'  -3.500000e+01' ) then bugmes();quit;end
  104.  
  105. if bugnum(sprintf('%15e',0.00433),'   4.330000e-03' ) then bugmes();quit;end
  106.  
  107. if bugnum(sprintf('%15e',0.0000000345456),'   3.454560e-08' ) then bugmes();quit;end
  108.  
  109. if bugnum(sprintf('%+15e',0.0000000345456),'   +3.454560e-08' ) then bugmes();quit;end
  110.  
  111. if bugnum(sprintf('%15e',11124234534545),'   1.112423e+13' ) then bugmes();quit;end
  112.  
  113.  
  114. if bugnum(sprintf('%.1e',-35),'-3.5e+01' ) then bugmes();quit;end
  115.  
  116. if bugnum(sprintf('%.0e',-35),'-4e+01' ) then bugmes();quit;end
  117.  
  118. if bugnum(sprintf('%#.0e',-35),'-4.e+01' ) then bugmes();quit;end
  119.  
  120. if bugnum(sprintf('%.1e',0.00433),'4.3e-03' ) then bugmes();quit;end
  121.  
  122. if bugnum(sprintf('%.15e',0.0000000345456),'3.454560000000000e-08' ) then bugmes();quit;end
  123.  
  124. if bugnum(sprintf('%.1e',11124234534545),'1.1e+13' ) then bugmes();quit;end
  125.  
  126.  
  127. //test format %c
  128.  
  129. if bugnum(sprintf('%c',29),'t' ) then bugmes();quit;end
  130.  
  131. if bugnum(sprintf('%10c',-29),'         T' ) then bugmes();quit;end
  132.  
  133. if bugnum(sprintf('%10.3c',29),'         t' ) then bugmes();quit;end
  134.  
  135. if bugnum(sprintf('%-10c',29),'t         ' ) then bugmes();quit;end
  136.  
  137.  
  138. //test format %s
  139.  
  140. if bugnum(sprintf('%s','text'),'text' ) then bugmes();quit;end
  141.  
  142. if bugnum(sprintf('%10s','text'),'      text' ) then bugmes();quit;end
  143.  
  144. if bugnum(sprintf('%10.3s','text'),'       tex' ) then bugmes();quit;end
  145.  
  146. if bugnum(sprintf('%-10s','text'),'text      ' ) then bugmes();quit;end
  147.  
  148.  
  149. if bugnum(sprintf('%s','t'),'t' ) then bugmes();quit;end
  150.  
  151.  
  152. //test format %x
  153.  
  154. if bugnum(sprintf('%x',123),'7b' ) then bugmes();quit;end
  155.  
  156. if bugnum(sprintf('%.10x',123),'000000007b' ) then bugmes();quit;end
  157.  
  158. if bugnum(sprintf('%x',-123),'ffffff85' ) then bugmes();quit;end
  159.  
  160. if bugnum(sprintf('%X',-123),'FFFFFF85' ) then bugmes();quit;end
  161.  
  162. if bugnum(sprintf('%#.3X',12),'0X00C' ) then bugmes();quit;end
  163.  
  164.  
  165. //test format %o
  166.  
  167. if bugnum(sprintf('%015o',-12),'000037777777764' ) then bugmes();quit;end
  168.  
  169.  
  170.